;; example p system
(ns p1 (:use psystem.psys))

(def oA (make-obj ['A]))
(def oT (make-obj ['B 'C]))
(def r1 (make-rule [oA] [oA oT]))
(def m1 (make-membrane 1 [r1 r1]))
(def m2 (make-membrane 2 [r1]))
(def p1 (make-psystem [m1 m2]))

    

